home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 14 / CU Amiga Magazine's Super CD-ROM 14 (1997)(EMAP Images)(GB)(Track 1 of 3)[!][issue 1997-09].iso / CUCD / Programming / Mesa-2.2 / widgets-mesa / demos / mcube.c < prev    next >
Encoding:
C/C++ Source or Header  |  1997-01-31  |  10.0 KB  |  394 lines
  1. /* mcube.c -- Demo program for the Mesa widget
  2.    Copyright (C) 1995 Thorsten.Ohl @ Physik.TH-Darmstadt.de
  3.  
  4.    This program is free software; you can redistribute it and/or modify
  5.    it under the terms of the GNU General Public License as published by
  6.    the Free Software Foundation; either version 2 of the License, or
  7.    (at your option) any later version.
  8.  
  9.    This program is distributed in the hope that it will be useful,
  10.    but WITHOUT ANY WARRANTY; without even the implied warranty of
  11.    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  12.    GNU General Public License for more details.
  13.  
  14.    You should have received a copy of the GNU General Public License
  15.    along with this program; see the file COPYING.  If not, write to
  16.    the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
  17.  
  18.    $Id: mcube.c,v 1.14 1996/09/27 18:08:10 ohl Exp $
  19.  */
  20.  
  21. #include <stdio.h>
  22. #include <stdlib.h>
  23. #include <stdarg.h>
  24. #include <math.h>
  25. #include <X11/X.h>
  26. #include <X11/Intrinsic.h>
  27. #include <X11/StringDefs.h>
  28. #include <X11/Shell.h>
  29. #ifndef __GLX_MOTIF
  30. #include <X11/Xaw/Command.h>
  31. #include <X11/Xaw/Form.h>
  32. #include <GL/xmesa.h>
  33. #include <GL/gl.h>
  34. #include <GL/MesaDrawingArea.h>
  35. #else /* __GLX_MOTIF */
  36. #include <Xm/PushB.h>
  37. #include <Xm/Form.h>
  38. #include <GL/xmesa.h>
  39. #include <GL/gl.h>
  40. #include <GL/MesaMDrawingArea.h>
  41. #define GLwMakeCurrent GLwMMakeCurrent
  42. #endif /* __GLX_MOTIF */
  43.  
  44. static char *RCS_Id =
  45. "@(#) $Id: mcube.c,v 1.14 1996/09/27 18:08:10 ohl Exp $";
  46.  
  47. static GLint Black, Red, Green, Blue;
  48.  
  49. void quit_function (Widget, XtPointer, XtPointer);
  50.  
  51. void
  52. quit_function (Widget w, XtPointer closure, XtPointer call_data)
  53. {
  54.   exit (0);
  55. }
  56.  
  57. static void
  58. draw_cube (void)
  59. {
  60.   /* X faces */
  61.   glIndexi (Red);
  62.   glColor3f (1.0, 0.0, 0.0);
  63.   glBegin (GL_POLYGON);
  64.   {
  65.     glVertex3f (1.0, 1.0, 1.0);
  66.     glVertex3f (1.0, -1.0, 1.0);
  67.     glVertex3f (1.0, -1.0, -1.0);
  68.     glVertex3f (1.0, 1.0, -1.0);
  69.   }
  70.   glEnd ();
  71.  
  72.   glBegin (GL_POLYGON);
  73.   {
  74.     glVertex3f (-1.0, 1.0, 1.0);
  75.     glVertex3f (-1.0, 1.0, -1.0);
  76.     glVertex3f (-1.0, -1.0, -1.0);
  77.     glVertex3f (-1.0, -1.0, 1.0);
  78.   }
  79.   glEnd ();
  80.  
  81.   /* Y faces */
  82.   glIndexi (Green);
  83.   glColor3f (0.0, 1.0, 0.0);
  84.   glBegin (GL_POLYGON);
  85.   {
  86.     glVertex3f (1.0, 1.0, 1.0);
  87.     glVertex3f (1.0, 1.0, -1.0);
  88.     glVertex3f (-1.0, 1.0, -1.0);
  89.     glVertex3f (-1.0, 1.0, 1.0);
  90.   }
  91.   glEnd ();
  92.  
  93.   glBegin (GL_POLYGON);
  94.   {
  95.     glVertex3f (1.0, -1.0, 1.0);
  96.     glVertex3f (-1.0, -1.0, 1.0);
  97.     glVertex3f (-1.0, -1.0, -1.0);
  98.     glVertex3f (1.0, -1.0, -1.0);
  99.   }
  100.   glEnd ();
  101.  
  102.   /* Z faces */
  103.   glIndexi (Blue);
  104.   glColor3f (0.0, 0.0, 1.0);
  105.   glBegin (GL_POLYGON);
  106.   {
  107.     glVertex3f (1.0, 1.0, 1.0);
  108.     glVertex3f (-1.0, 1.0, 1.0);
  109.     glVertex3f (-1.0, -1.0, 1.0);
  110.     glVertex3f (1.0, -1.0, 1.0);
  111.   }
  112.   glEnd ();
  113.  
  114.   glBegin (GL_POLYGON);
  115.   {
  116.     glVertex3f (1.0, 1.0, -1.0);
  117.     glVertex3f (1.0, -1.0, -1.0);
  118.     glVertex3f (-1.0, -1.0, -1.0);
  119.     glVertex3f (-1.0, 1.0, -1.0);
  120.   }
  121.   glEnd ();
  122. }
  123.  
  124. GLfloat xrot, yrot, zrot;
  125.  
  126. static void
  127. init_display (Widget w)
  128. {
  129.   xrot = yrot = zrot = 0.0;
  130.  
  131.   GLwMakeCurrent (w);
  132.  
  133.   glClearColor (0.0, 0.0, 0.0, 0.0);
  134.   glClearIndex (Black);
  135.   glClearDepth (10.0);
  136.  
  137.   glMatrixMode (GL_PROJECTION);
  138.   glLoadIdentity ();
  139.   glFrustum (-1.0, 1.0, -1.0, 1.0, 1.0, 10.0);
  140.   glTranslatef (0.0, 0.0, -3.0);
  141.  
  142.   glMatrixMode (GL_MODELVIEW);
  143.   glLoadIdentity ();
  144.  
  145.   glCullFace (GL_BACK);
  146.   glEnable (GL_CULL_FACE);
  147.  
  148.   glShadeModel (GL_FLAT);
  149. }
  150.  
  151. static void
  152. display (Widget w)
  153. {
  154.   GLwMakeCurrent (w);
  155.   glClear (GL_COLOR_BUFFER_BIT);
  156.   glPushMatrix ();
  157.   {
  158.     glRotatef (xrot, 1.0, 0.0, 0.0);
  159.     glRotatef (yrot, 0.0, 1.0, 0.0);
  160.     glRotatef (zrot, 0.0, 0.0, 1.0);
  161.     draw_cube ();
  162.   }
  163.   glPopMatrix ();
  164.   glFinish ();
  165.   GLwDrawingAreaSwapBuffers (w);
  166.   /* XMesaSwapBuffers (MesaContext (w)); */
  167.       
  168.   xrot += 1.0;
  169.   yrot += 0.7;
  170.   zrot -= 0.3;
  171. }
  172.  
  173.  
  174. static GLint
  175. alloc_color (Widget w, Colormap cmap, int red, int green, int blue)
  176. { 
  177.   XColor xcolor;
  178.   xcolor.red = red;
  179.   xcolor.green = green;
  180.   xcolor.blue = blue;
  181.   xcolor.flags = DoRed | DoGreen | DoBlue;
  182.   if (!XAllocColor (XtDisplay (w), cmap, &xcolor))
  183.     {
  184.       printf ("Couldn't allocate black!\n");
  185.       exit (1);
  186.     }
  187.   return xcolor.pixel;
  188. }
  189.  
  190. /* This is rather inefficient, but we don't mind for the moment,
  191.    because it works.  */
  192.  
  193. static void
  194. translate_pixels (Widget to, Widget from, ...)
  195. {
  196.   va_list ap;
  197.   char *name;
  198.   Colormap from_cmap, to_cmap;
  199.   XColor xcolor;
  200.  
  201.   XtVaGetValues (from, XtNcolormap, &from_cmap, NULL);
  202.   XtVaGetValues (to, XtNcolormap, &to_cmap, NULL);
  203.  
  204.   va_start (ap, from);
  205.   for (name = va_arg (ap, char *); name != NULL; name = va_arg (ap, char *))
  206.     {
  207.       XtVaGetValues (from, name, &xcolor.pixel, NULL);
  208.       XQueryColor (XtDisplay (from), from_cmap, &xcolor);
  209.       if (!XAllocColor (XtDisplay (to), to_cmap, &xcolor))
  210.     XtAppWarning (XtWidgetToApplicationContext (to),
  211.               "Couldn't allocate color!\n");
  212.       else
  213.     XtVaSetValues (from, name, xcolor.pixel, NULL);
  214.     }
  215.   va_end (ap);
  216. }
  217.  
  218. /* Just like the movies: do 24 frames per second. */
  219. unsigned long delay = 1000/24;
  220.  
  221. static void first_frame (Widget);
  222. static void next_frame (XtPointer, XtIntervalId *);
  223.  
  224. static void
  225. first_frame (Widget w)
  226. {
  227.   XtAppAddTimeOut (XtWidgetToApplicationContext (w),
  228.            delay, next_frame, (XtPointer) w);
  229. }
  230.  
  231. static void
  232. next_frame (XtPointer client_data, XtIntervalId *id)
  233. {
  234.   Widget w = (Widget) client_data;
  235.   first_frame (w);
  236.   display (w);
  237. }
  238.  
  239. static XrmOptionDescRec options[] =
  240. {
  241.   { "-debug", "*debug", XrmoptionNoArg, "True" },
  242.   { "-rgba", "*rgba", XrmoptionNoArg, "True" },
  243.   { "-doublebuffer", "*doublebuffer", XrmoptionNoArg, "True" },
  244.   { "-ximage", "*ximage", XrmoptionNoArg, "True" },
  245. };
  246.  
  247. static String fallback_resources[] =
  248. {
  249. #ifndef __GLX_MOTIF
  250.   "*MesaDrawingArea.width: 100",
  251.   "*MesaDrawingArea.height: 100",
  252.   "*MesaDrawingArea.debug: false",
  253.   "*MesaDrawingArea.rgba: false",
  254.   "*MesaDrawingArea.installColormap: true",
  255.   "*MesaDrawingArea.doublebuffer: true",
  256.   "*MesaDrawingArea.ximage: false",
  257.   "*mesa.width: 300",
  258.   "*mesa.height: 300",
  259. #else /* __GLX_MOTIF */
  260.   "*MesaMDrawingArea.width: 100",
  261.   "*MesaMDrawingArea.height: 100",
  262.   "*MesaMDrawingArea.debug: false",
  263.   "*MesaMDrawingArea.rgba: false",
  264.   "*MesaMDrawingArea.installColormap: true",
  265.   "*MesaMDrawingArea.doublebuffer: true",
  266.   "*MesaMDrawingArea.ximage: false",
  267.   "*mesa.width: 300",
  268.   "*mesa.height: 300",
  269. #endif /* __GLX_MOTIF */
  270.   NULL
  271. };
  272.  
  273. int
  274. main (int argc, char *argv[])
  275. {
  276.   Widget top, frame, mesa, mesa1, quit;
  277.   XtAppContext app_context;
  278.   Boolean rgba, cmap_installed;
  279.  
  280.   XtSetLanguageProc (NULL, NULL, NULL);
  281.   top = XtVaAppInitialize (&app_context, "Mcube",
  282.                options, XtNumber (options),
  283.                &argc, argv, fallback_resources,
  284.                NULL);
  285.  
  286. #ifndef __GLX_MOTIF
  287.   frame = XtVaCreateManagedWidget ("frame", formWidgetClass,
  288.                    top,
  289.                    NULL);
  290.   mesa = XtVaCreateManagedWidget ("mesa", mesaDrawingAreaWidgetClass,
  291.                   frame,
  292.                   GLwNshareLists, True,
  293.                   NULL);
  294.   mesa1 = XtVaCreateManagedWidget ("mesa1", mesaDrawingAreaWidgetClass,
  295.                    frame,
  296.                    GLwNshareLists, True,
  297.                    XtNwidth, 100, XtNheight, 100,
  298.                    XtNfromHoriz, mesa, XtNhorizDistance, 10,
  299.                    NULL);
  300.   quit = XtVaCreateManagedWidget ("quit", commandWidgetClass,
  301.                   frame,
  302.                                   XtNfromVert, mesa1, XtNvertDistance, 50,
  303.                                   XtNfromHoriz, mesa, XtNhorizDistance, 10,
  304.                   NULL);
  305.   XtAddCallback (quit, XtNcallback, quit_function, NULL);
  306. #else /* __GLX_MOTIF */
  307.   frame = XtVaCreateManagedWidget ("frame", xmFormWidgetClass,
  308.                    top,
  309.                    /* This should not be necessary.  Is it
  310.                       a bug in LessTif or in my understanding
  311.                       of Motif?  */
  312.                    XtNwidth, 430, XtNheight, 320,
  313.                    NULL);
  314.   mesa = XtVaCreateManagedWidget ("mesa", mesaMDrawingAreaWidgetClass,
  315.                   frame,
  316.                   GLwNshareLists, True,
  317.                   XmNtopAttachment, XmATTACH_FORM,
  318.                   XmNtopOffset, 10,
  319.                   XmNleftAttachment, XmATTACH_FORM,
  320.                   XmNleftOffset, 10,
  321.                   XmNbottomAttachment,  XmATTACH_FORM,
  322.                   XmNbottomOffset, 10,
  323.                   NULL);
  324.   mesa1 = XtVaCreateManagedWidget ("mesa1", mesaMDrawingAreaWidgetClass,
  325.                    frame,
  326.                    GLwNshareLists, True,
  327.                    XtNwidth, 100, XtNheight, 100,
  328.                    XmNtopAttachment, XmATTACH_FORM,
  329.                    XmNtopOffset, 10,
  330.                    XmNleftAttachment, XmATTACH_WIDGET,
  331.                    XmNleftOffset, 10,
  332.                    XmNleftWidget, mesa,
  333.                    XmNrightAttachment, XmATTACH_FORM,
  334.                    XmNrightOffset, 10,
  335.                    NULL);
  336.   quit = XtVaCreateManagedWidget ("quit", xmPushButtonWidgetClass,
  337.                   frame,
  338.                   XmNrightAttachment, XmATTACH_FORM,
  339.                   XmNrightOffset, 10,
  340.                   XmNbottomAttachment, XmATTACH_FORM,
  341.                   XmNbottomOffset, 10,
  342.                   NULL);
  343.   XtAddCallback (quit, XmNarmCallback, quit_function, NULL);
  344. #endif /* __GLX_MOTIF */
  345.  
  346.   XtRealizeWidget (top);
  347.  
  348.   XtVaGetValues (mesa,
  349.          GLwNrgba, &rgba,
  350.          GLwNinstallColormap, &cmap_installed,
  351.          NULL);
  352.   if (rgba)
  353.     {
  354.       Black = Red = Green = Blue = 0;
  355.  
  356.       if (cmap_installed)
  357.     {
  358.       /* In RGBA mode, the Mesa widgets will have their own color map.
  359.          Adjust the colors of the other widgets so that--even if the rest
  360.          of the screen has wrong colors--all application widgets have the
  361.          right colors.  */
  362.              
  363.       translate_pixels (mesa, quit,
  364.                 XtNbackground, XtNforeground, XtNborder, NULL);
  365.       translate_pixels (mesa, frame, XtNbackground, XtNborder, NULL);
  366.  
  367.       /* Finally warp the pointer into the mesa widget, to make sure that
  368.          the user sees the right colors at the beginning.  */
  369.  
  370.       XWarpPointer (XtDisplay (mesa), None, XtWindow (mesa), 0, 0, 0, 0, 0, 0);
  371.     }
  372.     }
  373.   else
  374.     {
  375.       /* Allocate a few colors for use in color index mode.  */
  376.  
  377.       Colormap cmap;
  378.       cmap = DefaultColormap (XtDisplay (top), DefaultScreen (XtDisplay (top)));
  379.       Black = alloc_color (top, cmap, 0x0000, 0x0000, 0x0000);
  380.       Red   = alloc_color (top, cmap, 0xffff, 0x0000, 0x0000);
  381.       Green = alloc_color (top, cmap, 0x0000, 0xffff, 0x0000);
  382.       Blue  = alloc_color (top, cmap, 0x0000, 0x0000, 0xffff);
  383.     }
  384.  
  385.   init_display (mesa);
  386.   init_display (mesa1);
  387.  
  388.   first_frame (mesa);
  389.   first_frame (mesa1);
  390.   
  391.   XtAppMainLoop (app_context);
  392.   return (0);
  393. }
  394.